home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / utilities / u191.dms / in.adf / SupportFiles / Amos / COL_CYC.AMOS / COL_CYC.amosSourceCode
Encoding:
AMOS Source Code  |  1978-02-03  |  1.2 KB  |  39 lines
  1. Screen Open 0,320,200,16,Lowres
  2. Flash Off 
  3. Cls 0
  4. Palette $0,$5,$6,$8,$9,$B,$C,$E,$F,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
  5. '
  6. For Y=0 To 15
  7.    For X=0 To 15
  8.       Read SPOT
  9.       Ink SPOT
  10.       Plot X,Y
  11.    Next X
  12. Next Y
  13. '
  14. Get Bob 1,0,0 To 16,16
  15. For Y=0 To 11
  16.    For X=0 To 19
  17.       Paste Bob X*16,Y*16,1
  18.    Next X
  19. Next Y
  20. '
  21. Shift Up 4,1,8,1
  22. '
  23. End 
  24. Data $1,$1,$1,$1,$1,$1,$1,$1,$1,$2,$3,$4,$5,$6,$7,$8
  25. Data $1,$2,$2,$2,$2,$2,$2,$2,$1,$2,$3,$4,$5,$6,$7,$7
  26. Data $1,$2,$3,$3,$3,$3,$3,$3,$1,$2,$3,$4,$5,$6,$6,$6
  27. Data $1,$2,$3,$4,$4,$4,$4,$4,$1,$2,$3,$4,$5,$5,$5,$5
  28. Data $1,$2,$3,$4,$5,$5,$5,$5,$1,$2,$3,$4,$4,$4,$4,$4
  29. Data $1,$2,$3,$4,$5,$6,$6,$6,$1,$2,$3,$3,$3,$3,$3,$3
  30. Data $1,$2,$3,$4,$5,$6,$7,$7,$1,$2,$2,$2,$2,$2,$2,$2
  31. Data $1,$2,$3,$4,$5,$6,$7,$8,$1,$1,$1,$1,$1,$1,$1,$1
  32. Data $1,$1,$1,$1,$1,$1,$1,$1,$8,$7,$6,$5,$4,$3,$2,$1
  33. Data $2,$2,$2,$2,$2,$2,$2,$1,$7,$7,$6,$5,$4,$3,$2,$1
  34. Data $3,$3,$3,$3,$3,$3,$2,$1,$6,$6,$6,$5,$4,$3,$2,$1
  35. Data $4,$4,$4,$4,$4,$3,$2,$1,$5,$5,$5,$5,$4,$3,$2,$1
  36. Data $5,$5,$5,$5,$4,$3,$2,$1,$4,$4,$4,$4,$4,$3,$2,$1
  37. Data $6,$6,$6,$5,$4,$3,$2,$1,$3,$3,$3,$3,$3,$3,$2,$1
  38. Data $7,$7,$6,$5,$4,$3,$2,$1,$2,$2,$2,$2,$2,$2,$2,$1
  39. Data $8,$7,$6,$5,$4,$3,$2,$1,$1,$1,$1,$1,$1,$1,$1,$1